home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 084 / gravitywars / gw.def < prev    next >
Text File  |  1995-03-13  |  2KB  |  56 lines
  1. DEFINITION MODULE GW;
  2.  
  3.  
  4. (**********************************************************************
  5. ***************           Written by Ed Bartz           ***************
  6. ***************           Copyright  5/14/87            ***************
  7. ***************    This program may be redistributed    ***************
  8. ***************    or modified as long as these         ***************
  9. ***************    notices and all other references     ***************
  10. ***************    to the author remain intack.         ***************
  11. ***************    Also this may not be used for        ***************
  12. ***************    profit by anyone without the         ***************
  13. ***************    express permission of the author.    ***************
  14. **********************************************************************)
  15.  
  16. FROM Intuition  IMPORT WindowPtr;
  17.  
  18.     TYPE
  19.       Pl = RECORD
  20.        x,y,r   :INTEGER;
  21.        color   :CARDINAL;
  22.        m       :REAL;
  23.       END;
  24.  
  25.       Mdata = RECORD
  26.        P1ang,P1vel,P2ang,P2vel  :REAL;
  27.       END;
  28.  
  29.       Shell = RECORD
  30.         vx,vy: REAL;
  31.         x,y : INTEGER;
  32.       END;
  33.  
  34.       String = ARRAY [0..80] OF CHAR;
  35.  
  36.    PROCEDURE DrawPlanet(x,y,r:INTEGER;color,ptype:CARDINAL;wp:WindowPtr);
  37.  
  38.     PROCEDURE Distance(A,B :Pl): INTEGER;
  39.  
  40. PROCEDURE Pposition (VAR PlanetPos: ARRAY OF Pl;Pnum,ptype: CARDINAL; w: WindowPtr);
  41.  
  42. PROCEDURE Sposition(w: WindowPtr;VAR Ship,PPos: ARRAY OF Pl;Pnum: CARDINAL);
  43.  
  44.     PROCEDURE Stars(wp: WindowPtr);
  45.  
  46.     PROCEDURE Sexplosion(mis:Shell;wp: WindowPtr);
  47.  
  48.     PROCEDURE Pexplosion(mis:Shell;wp: WindowPtr);
  49.  
  50.     PROCEDURE DrawLine (x1,y1,x2,y2,c : CARDINAL; wp : WindowPtr);
  51.  
  52.     PROCEDURE DrawShip(x1,y1,x2,y2 : CARDINAL; wp : WindowPtr);
  53.  
  54. END GW.
  55.  
  56.